<%

Function IsArquivoExiste(endereco)

	Set Arquivo = Server.CreateObject("Scripting.FileSystemObject")
	
	If Arquivo.FileExists(endereco) Then
		IsArquivoExiste = TRUE
	Else 
		IsArquivoExiste = FALSE
	End If
	
	Set Arquivo = Nothing

End Function

function Arquivo_Renomear(nome, novo)

	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	
	FSO.MoveFile nome, novo
	
	Set FSO = Nothing
  
end function

function Arquivo_Deletar(endereco)

	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	If IsArquivoExiste(endereco) Then
		Set anexo = FSO.GetFile(endereco)
		anexo.delete
	end if
  
end function

function Arquivo_Deletar(endereco)

	Set FSO = Server.CreateObject("Scripting.FileSystemObject")
	If IsArquivoExiste(endereco) Then
		Set anexo = FSO.GetFile(endereco)
		anexo.delete
	end if
  
end function

function Arquivo_nome()

	DIM nome, itens
	
	nome = Request.ServerVariables("script_name")
	itens = Split(nome,"/")
	nome = itens(Ubound(itens))
	
	Arquivo_nome = nome
  
end function
%>